home *** CD-ROM | disk | FTP | other *** search
/ Turnbull China Bikeride / Turnbull China Bikeride - Disc 2.iso / STUTTGART / NEWSOFT / AUGUST / NEWSBASE / !Newsbase / Transports / Termite / sethost (.txt) < prev    next >
RISC OS BBC BASIC V Source  |  1996-04-27  |  1KB  |  65 lines
  1.  >sethost
  2.  NewsBase: Returns local host name
  3.  (c) DoggySoft, 1995
  4. exit(1,
  5. $+" at line "+
  6.  "XOS_Find",&4F,"<TermiteIP$Dir>.Options.Options" 
  7.  B%;F%
  8. exit(1,
  9. zs(B%+4))
  10.     A%=B%
  11. host$=""
  12.   a$=
  13. lower(
  14. a$,1)=" "
  15.     a$=
  16. a$,2)
  17. a$,6)="domain" 
  18.  host$=
  19. option(a$)
  20.  host$<>""
  21.  host$="" 
  22. exit(1, "'Domain' field not found in TermiteIP options")
  23. exit(0, host$)
  24. lower(a$)
  25.  b$,c%
  26.  a$<>""
  27.     c%=
  28. a$,1))
  29.     a$=
  30. a$,2)
  31. #2    
  32.  c%>64 
  33.  c%<91 
  34.  b$+=
  35. (c%+32) 
  36.  b$+=
  37. option(a$)
  38.   a$=
  39. a$,"=")+1)
  40. a$,"#") 
  41. a$,"#")-1)
  42. a$,";") 
  43. a$,";")-1)
  44. a$,1)=" "
  45.     a$=
  46. a$,1)=" "
  47.     a$=
  48. a$,2)
  49. a$,1)=
  50. a$,1)=
  51. a$,2,
  52.  a$-2)
  53. zs(p%)
  54.  ?p%>31
  55.     a$+=
  56.     p%+=1
  57. exit(n%,a$)
  58.  A%<>0 
  59.     A%=0
  60.  a$="" 
  61.     n%=1
  62.     a$="Internal error"
  63. ("Set NewsBase$ReturnCode "+
  64. ("Set NewsBase$ReturnInfo "+a$)
  65.